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ASTROVISION ADD-ON is called " ZGRASS-32 COMPUTER KEYBOARD ", and was shown 
at the Consumer Electronic Show at Las Vegas a month ago. The box, layout of 
parts, etc., is essentially the same as the one shown by Bally and illustrated 
on pe 29 of Vol 1. The shown sample was all black, and had an arcade unit 
resting on its upper surface. What's inside? The follwing data is taken from 
a publicity sheet handed out: 32K more RAM, 24K more ROM, the keyboard, and 
the ZGRASS language. Cost?-$599. Delivery?-well..I heard ‘manufacturing in 
June' twice, so we'll see. More details... 
Language used is Dr. DeFanti's ZGRASS, a graphics-oriented BASIC. A description 
of the language and its unique commands are contained in Vol 1, pages 11 - 14, 
and 37. The ZGRASS is contained in the 24K ROM, along with a ‘scientific math 
system'. It gives four colors anywhere on the screen, which is configured at 
160x100 pixels. The prime direction for ZGRASS is for the development of 
graphically exciting programs, whether they be games, video art, pie charts, 
or whatever. The beginnings were included in the basic arcade unit, with the 
commands LINE and BOX. New commands will be POINT and CIRCLE. Arrays will 
be multi-dimensional. There will be interpreted and compiled modes. The 
extended math package is floating point with trig & log (e and 10) functions, 
and square root. 

PLANNED EXPANSIONS to the keyboard unit include: 

32K more RAM 

TV PRINTER - hard copy of what is on the TV screen ( a scan is made of 

the screen and a print made of it.) 

LIGHT PEN 

BIT PAD DIGITIZER - a worksheet is electrically attached to the eanputer 

and a wand is touched to the pad. A dot appears on the screen at the same 

relative point. Drawings can be transcribed to the screen(=computer) and 

the coordinates of all the points are now in memory 

DUAL CASSETTE CONTROL at 1800 baud, motor of cassette is computer- 

controlled. 

DISC STORAGE = a connector is included. 

SLIDE COPIER | 

SOUND SYSTEM - connection to audio amplifier input 
More details on the above as they are discovered. One of the reasons for the 
CES was contact with dealers/distributors, to show the line, and sign up as 


their plan dictates. Quite a bit has to be regenerated from the old Pally days, 


as well as expansion beyond those levels to get nation-wide coverage. Regard- 
less, if you are not able to find one in your area (after June,etc.) let me 
know and we'll handle it by mail order. 


G ; Here is the lineup of the first batch - which 
are now scheduled for March 
2011 GALACTIC INVASION / 2012 SPACE FORTRESS / 2014 GRAND PRIX-DEMOLITION 
DERBY / 4003 MUSIC MAKER 1 / 4004 BIORYTHM 


USER GROUP REPORT The CACHE group indicate that they now have a file of 50 
programs in their software library. A reference library of printed material 
(hardware-oriented) is also being set up for the group. It was reported that 
REX TV has opened a new Bally service center at 18666 S. Dixie Highway, 
Homewood, IL 779-7800 


LISTED PROGRAMS have a number of small letters in them, because my COMPRINT 
does not have some characters. Therefore, you have to make a little conver- 
sion,.as follows: a = right arrow> b= multiply «x c = divide + 
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AN EXCELLENT TUTORIAL on Machine Language programming - getting some of the 
basics down - was printed in the November Kilobaud MICROCOMPUTING, p-.70. 

I'd say it was a medium-level description that tought me quite a lot and will 
be used as a reference in later operations.It explains some of the descrip- 
tive codes used ( like 8B CA etc). While the article specifically deals 
with the 6802 processor, the ideas as well as some specifics also fit the Z80. 


BLUE RAM OPERATING SYSTEM (1.0) arrived the other day, and it has two very 
useful features: 1. It allows EDITING of line statements, using a new RPL 
command (RePLace). You can either fix a line by adding, deleting, or changing 
something in the line, or you can change the line number from one value to 
another. People send in programs on tape, and sometimes the transfer to the 
Bally is not correct (usually a long line) and making the correction is a 
pain. But now I've used the 1.0 system, and I can easily make the necessary 
change. Especially since I've loaded the keyboard routine as well. All one 
needs to do is enter RPL (line number)/(old word)/(new word) RETURN or GO, 
and its done. 2. It allows the storage of 3800 Bally BASIC bytes in the 
Blue Ram. ((NOT machine language, but good ol'BB)) This opens up the world 

to those of you who aren't too keen on machine language, because all you have 
to do is follow a few simple rules, and keep writing programs in BB. In essence, 
there is a divider built in, all program lines below 1999 go into the old 
Basic storage areas, while material in line numbers above 1999 go into the BR. 
One can shift back and forth between the two areas. So now there are 5600 
bytes available - lets see some programs that take advantage of that space. 


ALTERNATIVE ENGINEERING is proceeding with the design and construction of the 
motherboard memory addition. They report that a small rearrangement has taken 
place, in that some previous options are now included in the basic package, 
resulting in about a month's delay. The prime package will include a power 
supply capable of handling all accessories, pec. board and connectors, some 
onboard intelligence to control things, plus some other goodies. The two 
prime accessories will be the memory package and the keyboard package. Other 
units are also under consideration. Full details are due in the announcement 
which I plan to have in the next issue. 


EXTENDED BASIC language is moving along smartly - current plans are to provide 
both tape and ROM versions so you can choose the format that suits you best. 
A little preview of the new commands follows: 

CIRCLE / POINT / NEW (erases program) / DATA (provides initialization of 
variables in a shorter manner) / ZERO (sets all variables to zero) 

In addition to the usual FC and BC, two more foreground colors are available 
in FA and FB. 

There are commands available for storing and retreiving programs, or just 
bits of programs. 

Two Windows can be generated on the screen, and their size limits controlled, 
for both graphics and characters. 

- How about a 3x5 character set available at CF=SMALL ? 

And it will automatically convert to a hex number base with the ! character. 
SCROLL will roll the screen up or down a specified number of lines. 

} in front of a variable will give its memory location. 


That ought to whet your appetite - we'll have more information as it becomes 
available, including delivery and cost, in subsequent issues. 
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The following tutorial was written 

by Bob Wiseman, and details some of 

his programming 'tricks', explaining 
= why. te : my 
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WHEN YOU PROGRAM THE ARCADE, YOU HAVE A GRAND TOTAL OF 1.8K 
OF USER MEMORY AVAILABLE FOR PROGRAM AND STRING DATA. THIS IS SELDOM 
ENOUGH. WHENEVER I PROGRAM THE ARCADE, I WRITE THE FROGRAM ON 
PAPER FIRST. THIS ALLOWS ME TO CALCULATE MEMORY 
REGUIREMENTS EARLY SOQ THAT I CAN HEAD “EM OFF AT THE PASS. 
I STRUCTURE THE PROGRAM INTO MODULES WHENEVER FOSSIBLE. I WRITE 
EACH MODULE ON A SEPARATE SHEET SQ THAT I CAN REWRITE A SINGLE 
MODULE WITHOUT AFFECTING ANYTHING ELSE. HAVING A PENCIL 
COPY OF A PROGRAM IS AN INVALUABLE AID WHEN SEARCHING FOR THAT 
ELUSIVE BUG. 

$0, I WRITE THE PROGRAM ON PAPER, AND THEN I ADDUP THE MEMORY 
NEEDED. I HAVE 1800 BYTES TO START WITH. 


COUNT THE FOLLOWING: 

3 BYTES PER LINE FOR STORAGE FOR THE LINE NUMBER AND 
CARRAGE RETURN. 

1 BYTE PER KEYWORD. THE WORDS PRINT, LIST, GOTO, LINE, 
FOR, TO, NEXT, STEP, GOSUB, RETURN, BOX, INPUT 
IF, AND RND ALL TAKE ONE BYTE. 

1 BYTE PER PUNCTUATION. THESE SPECIAL CHARACTERS TAKE 
CONE BYTE: COMMA, PERIOD, QUOTE, EXCLAMATION, 
PARANTHESIS, EQUALS, POUND SIGN, ETC.. 

1 BYTE PER ALPHABETIC LETTER. EACH LETTER, WHETHER LISED 
AS A VARIABLE OR USED IN QUOTES, COUNTS 1 BYTE. 
ITEMS LIKE CX, BC. AND NT HAVE TWO LETTERS AND $a 
THEY COUNT TWO BYTES. 

SPACE COUNTS ONE BYTE. 
1 BYTE FOR EACH NUMBERIC SYMBOL NOT BEGINNING A LINE. 


HERE ARE SOME EXAMPLES: 


10 GOTO 10 _ (COUNTS & BYTES) 
20 PRINT "ABC (COUNTS & BYTES) 
300 IF A=RND (3)G0TO 400 (COUNTS 14 BYTES) 


IN ADDITION TO THE MEMORY USED IN YOUR PROGRAM, YOLI MAY 
NEED TO PROVIDE SPACE FOR STRINGS OF DATA. I AM REFERRING TO 
THE USE OF THE AT-SIGN TABLE TO STORE DATA. EACH TAKES TWO BYTES. - 
SO IF YOU USE @(0), @(1),... » @(9), THEN YOUR PROGRAM MUST 
LEAVE TWENTY BYTES FREE. , 


THE FOLLOWING SHORT PROGRAM: 
10 FOR A=O0TO?'@(A)=0:NEXTA 


WILL TAKE 1% BYTES TO STORE, AND AN ADDITIONAL TWENTY BYTES 
WHEN IT IS RUN FOR STORAGE OF THE DATA. 
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NOW THAT WE KNOW WHERE THE MEMORY GOES, WE SHOULD BE ABLE 
TO USE IT MORE EFFICIENTLY. THESE GENERAL RULES MAY HELP. 


COMBINING SHORT LINES TOGETHER HELFS REDUCE THE THREE 
BYTES PER LINE OVERHEAD. 

ELIMINATE UNNECESSARY SFACES. THE ONLY TIME THAT A SFACE 
IS REQUIRED BY BALLY BASIC IS TO SEPARATE TWO VARIABLES. 
FOR EXAMBLE: 

10 IF A=CGOTO 10 (NO SPACES REQUIRED) 

20 IF B=D E=F (SPACE REQUIRED TO SEPARATE [— AND E) 
WISE VARIABLES TO REPLACE OFTEN USED. LONG NUMERIC VALUES. 
THIS CAN BE ESPECIALLY VALUABLE FOR LINE NUMBERS. 

EACH TIME YOU USE THE NUMERIC VALUE 3210 (FoR EXAMPLE). YOUR 
PROGRAM IS FOUR BYTES LARGER. IF You SAY "“T=3210" THAT costs 
SIX BYTES. IF YOU NEED TO REFER TO 3210 MORE THAN TWICE 

(AND YOU HAVE AN AVAILABLE VARIABLE OF COURSE) YOU CAN 

SAVE MEMORY. 


EXAMPLE: 
10 IF A=3210B=B+1 2 T=3210 
20 IF B=3210C=C+1 10 IFA=TB=E+1 
30 IF C=3210G0TO10 20 IFB=TC=C+1 


30 IF C=TGOQTO10 


THE PROGRAM ON THE LEFT TAKES 15+15+13= 43 BYTES. THE ONE 
ONE THE RIGHT TAKES 9+12+12+10= 43 BYTES. THE CINE ON THE 
RIGHT RUNS FASTER. IF WE HAD PUT "T=3210" ON LINE (10, THEN 
THE RIGHTHAND PROGRAM WOULD BE SMALLER ALSd. 
OMIT TRAILING QUOTATION MARKS. LINE TEN AND TWENTY WILL 
PRINT THE SAME THING. 
EXAMPLE: 
10 FRINT "ABCDEF" 
20 PRINT "“ABCDEF 
DO NOT BE AFRAID TO RE-WRITE. FIRST, YOU WRITE WHAT WORKS. 
NEXT, YOU WRITE WHAT WORKS BETTER. FINALLY, YOU WRITE IT 
SMALLER. 
EXAMPLE: SUPFOSE WE HAVE REACHED A FOINT IN THE FROGRAM WHERE 
WE HAVE A ZERO OR A ONE IN VARIABLE "A". IF ONE, WE. 
WANT TO CHANGE "A" TO A ZERO. IF ZERQ, WE WANT TO 
CHANGE "A" TO A ONE. SO WE FIRST WRITE THE OBVIOUS: 


100 IF A=OA=1°GOTO1L290 
110 A=0 
129 ...CONTINUE 


THIS WORKS AND IT TAKES 13+6= 21 BYTES. FURTHER 
HEADSCRATCHING AND THE MEMORY BULE LIGHTS LPs 


100 A=1-A 
THIS TAKES A MERE & BYTES AND DOES THE SAME THING. 
I HAVE OFTEN DISCOVERED THAT FINDING A SIMPLE ALGEBRAIC 


FORMULA WILL SAVE MANY BYTES. THE DIFFICULT FART 
IS FINDING THE FORMULA. t 


A.A 
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6) USE SUBROUTINES WHENEVER POSSIBLE. ANYTHING THAT YOUR 
PROGRAM DOES MORE THAN CNCE SHOULD BE IN A SUBROUTINE. 
WHEN YOU BREAK UP A PROGRAM INTO SUBROUTINES IT BECOMES 
EASIER TO DEBUG BECAUSE THE SUBROUTINES CAN BE TESTED 
INDEPENDENT OF THE REST OF THE PROGRAM. DRAWING A SHORT 
FLOWCHART (HORRORS!) BEFORE BEGINNING CODING IN BASIC 
WILL HELP ORGANIZE YOUR THOUGHTS ABOUT WHAT SHOULD BE 
A SUBROUTINE. SUBROUTINES HELF AVOID REDUNDANT CODE, 
AND THIS KEEPS IT SMALL. 
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THE BEST TIME TO MAKE A PROGRAM RUN FASTER IS BEFORE You 
HAVE WRITTEN IT. AFTERWARDS, THE CHANGES MAY BE Tod DIFFICULT To 
MAKE AND DEBLIG (SORT OF LIKE ADDING AN EXTRA BATHROOM GN THE 
SECOND FLOOR AFTER THE HOUSE HAS BEEN BUILT). THE GENERAL 
RULE I HAVE FOLLOWED Is: 


(OTHER THINGS BEING EGUAL) THE FEWER BYTES BALLY BASIC 
HAS TO INTERPRET THE FASTER THE PROGRAM RUNS. 


THIS EQUATES TO PART I. IN GENERAL, THE SHORTER A FROGRAM, 
THE FASTER IT RUNS. I HAVE RUN A FEW SHORT TIMINGS AND THEY 
SEEM TO FOLLOW THIS RULE. REMEMBER OUR EXAMPLE WHERE WE REPLACED 
THE VALUE 3210 WITH THE VARIABLE "T". THE EXAMPLE ON THE RIGHT 
RUNS FASTER BECAUSE BASIC HAS FEWER BYTES To INTERPRET. 


HERE IS AN EXPERIMENT FOR YOU TO PERFORM. WRITE THE 
BASE PROGRAM AS FOLLOWS: 


10 FOR A=0 TO 3000 
7O NEXT A 


RUN THIS AND TIME ITS EXECUTION WITH A WATCH. RECORD THIS 
TIME. NOW TRY INSERTING DIFFERENT LINES INTO THE CENTER AND SEE 
HOW THIS AFFECTS THE TOTAL RUN TIME. I FOUND THIS TO BE QUITE 
INTERESTING. IF NO GRAPHICS ARE INVOLVED, I FOUND THAT THE 
EXTRA EXECUTION TIME WAS ALMOST DIRECTLY PROPORTIONAL TO THE 
EXTRA NUMBER OF BYTES INTERPRETED. USE EACH OF THE FOLLOWING 
AND SEE HOW THEIR TIMES COMPARE. 


20 B=A (4 BYTES) 
20 Be12345+1 (12 BYTES) 


I FIND THAT BOX AND LINE REGUIRE MORE TIME PER INTERFRETED 


BYTE THAN NON-GRAPHIC COMMANDS. 


IF YOU CANNOT MAKE IT RUN FAST, YOU MIGHT AS WELL MAKE 
IT ENTERTAINING. TRY TYING SOME OF YOUR VARIABLES To 
THE SOUND SYSTEM INPUTS. A MUSICAL DIVERSION WILL 
LET THE OPERATOR KNOW THAT THE PROGRAM IS STILL WORKING, 
AND HASN’T DROPPED DEAD OR FOUND A LOOP. 
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- GOLF 


5 .BY BOB HENSEL : 
186 FOR Z=1TO N;@CZ)=8; NEXT 2; B=@; FOR. H=1TO 33 GOSUB 3600 
192 FOR P=1TO N;U=46; J=8 
164 IF P=1G=13+RND (56@);I= TS+RNB- C1595 T=13+RND (58); RE1I#RND CSOs S=13+RND (58) 
;B=Bt+Ic5S 
1@5 CLEAR ;GOSUB 1@00;Y=-16;GOSUB 11800; T=T+18; GOSUB: Acaesaqhapien 1S; Y=@; sie 1268 
166 Y=1@;GOSUB 1360;E=46;F=-41;BOxX E, F, LE fet : 


142 
144 
146 
147 
148 
158 
151 
152 


153°: 


155 
iS6 
178 
172 
1928 
200 
202 
285 
2718 
212 
214 
216 
217 


,218 
‘219. 


228 
238 
2408 
258 
298 
291 

295 
8a1 

sa2. 
sa3 


304 


8a5 
886 
887 
gag 
s8a9 
818 
B11 
812 
813 
B14 
815 
816 
19a0 
1180 


LINE 3,-43,4;LINE 3,43,1;LINE 793, 43,13LINE’ 79; +43,1;LINE 3, “43, 1 
PRINT “* HOLE #°,41,H;PRINT “ PAR °,#1,Ic5,": " ,#191b20, “YD 


WeRND (4);M=CRND (6)—16S;PRINT *° WEND:“ 15 T0s934M5 PRINT #3,M, "MPH", 
CY=8;CX=-71;PRINT “PLAYER SCORE", oe ao 
CX=-S6;CY=@;PRINT #1,P,#7,U- ee : 
ACATIXCLIEIF ADLGABEE 228 8428 Ingleside Ave., 5. 
oe gi ies te arte ei Cottage Grove, MN a 


IF ACLA=16 


X=2;Y=2;GOSUB. 8aa+A- | e ms 
LINE -4@,-20,4; BOX™-4@,- “28, 68, 38, 23 BOX -48, 20, 2yBy 1sLINE Xb7-40, Yb7-2@, 1 
CHC+IYC1);IF Co9CeL 

IF c<ic=g ; : 

CX=-71;CY=-48; PRINT "CLUB: *, #1,C, IF C=1PRINT '* Woon", ;GOTO 1980 

PRINT " IRON", } Golf is a game of skill for 1 to 4 > 

IF TRCL)=@GOTO 158. ca players. The computer generates 9 dif- 
U=U+1;NT=10;MU=C:NT=0 = ferent holes each game, randomly placing 
IF J=1GoToO. 3198 -- each green and hazards such as trees, 

FOR Z=1TO: 2b€18-C)" -* water,or sand traps. Each player selects 
IF Z#11GOTO 219 © “4 the. direction the ball will travel by 
D=@:IF M>SD=1 moving JX(1) until the rotating line 

TE Yes Dee ce | points in the proper direction. The dis- 
TE We 2ReK-Beo es ' tance is dependent on the club selected 
IF We3¥-¥-D = | using J¥(1)~- Remember the flight of the 
IF W=4xX=K+D | pall is affected by the direction and 


E=£+X;F=F+Y;BOx EF, 1, 1,3: velocity of the wind. 
IF E>3IF E<7SIF FC43IF F>- ~43I-83GOTO 248. = 

GOTO 4908 

TF. ae SIF EXG+8IF F>t- SIF Fx THO 51 


HOLE 3 TeoLF 


PAR 4 410YD 
P Wino: SMPH 
J PLAYER Scone 





Yas RETURN 

Y=1; RETURN: 

RETURN — 

X=1; RETURN 

X=@; RETURN 

X=-1; RETURN 
X=-2;RETURN: =~ 

M=-23 Y=1; RETURN 
X=-2;Y=@;RETURN 
K=-23Y=-1;RETURN — 

X=-23 Y=-2; RETURN © 
=~; Y=-2; RETURN | 

X=0; Y=-2; RETURN 
x=1; Y=-2; RETURN 
=-2;RETURN © 

Y=-1; RETURN 

BOX G,1I,4,12,1;BOX G,1I,18;18,1;BOx G,1I,14,8,1;BOX G,I,16,4,1; RETURN a 

BOX T,Y,2,10,1;BOX T, ¥+2,4,2,1;BOX T+-¥,6,2,1;BOX% T,Y-2,8,2, 13; RETURN 


A. © 
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SINK THE U-BOAT STAR a 
S(U gem DROP 
T(TRIO O, 5) 
\ ca ake 
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WRITE FOR FREE CATALOG: 


W \ BLANK (OMMITER (ASS- 
"s ETN. eal 















TEOBLRGH, IN. 9630" 


GOLF (continued) |. oe 


1208 BOX R,Y,2,18; 1:BOx R, ¥5 5, 14,13 BOX. R, M, 12; 18, ti BOX R,Y, 14,6,1;BOX R,Y,18,2,1 
sRETURN | = < : 
1388 BOX S,Y,12,5,15 RETURN : ae 

3888 BOX 41,0,78,87,2:BOX 41,8, 16, 48, 1} BOX ay, 2,40, 40,1; BOX 41,0,56,32,1;BOX 41, 
@,72,16,1 

3418 K=28+RND (36)% L=RND" (C16 )-8; BOX K, L,3, 3, wet E=414+(E-Gb4;F=(F-Ib4; 3 BOX E,F,1,1 
,3iBOX 41,0,79,94,3° é: 

3815 IF ABSCE-K}<2IF ABSCF- L9<260T0 3500. 

qa@iz7 GoTo 148 : 3 

Ji@@ FOR Z=1TO 2bC18-C) 

3110 E=E+K;F=F+Y:BOX E£,Fyi,;1,3 — Ha 

3129 IF ABSCE-K)<ZIF ABS(F=L)<2GOTO 3508 

3130 IF E>SIF E<79IF: EXaair f>- -43G0TO. 3148 

3135 GOTO 4agq° | og | 

314@ NEXT Z;GOTO 148° 2 

350@ CY=8;CxX=3@;PRINT - “SUNK; @CP)=@CPD4U. 

2518 GOSUB 361@;NEXT P;NEXT H™ = 

3688 CLEAR PRINT * PAR=",#1,B;FOR Z=1T0 N; ;PRINT “PLAYER” ,#2,Z;"=",#1,@(Z),#4,@ 
(Z)-B;NEXT Z 

3618 FOR O=1TO 1@@@;NEXT O;RETURN | . 
4988 CY=-28;CX=-59;PRINT "PENALTY" ;NT=4@;MU=69; MU=6@; MU=68; NT=@;U=U+1;GOSUB 3618 
;GOTO 149 


AT 






























































.MUSICAL STAFF 
.BY BOB WISEMAN © 
1@ GOSUB 95@ «tk 
28 N=N+1 : Kae 
38 GOSUB 308;IF WGOTO so 
4@ GOSUB 288@;GOTO 26". 
5S@ GOSUB 4@@;X=X-9 
6B ee ie 
7@ IF C=@GOTO 68 Fy 
8@ IF C=-2GOTO 18 SEE 
98 FOR M=@TO N-1;P= @( M6503 T=RM. 
1@@ GOSUB 7@@;NEXT M: : 
119 IF C=2IF TRC(1)=GGOTO 120. 


115 GOTO 38 on | a ee ee 
: mse tt MUSICAL STAFF writes notes in the 
1246 FOR M=8TO 18; NEXT M3 ‘saul: 85, ‘ key of C, using controller #1. 


9a@ I=8;IF P=Pc2b2I=1 

818 V="-(20-P bSe2+16 

915 BOX X,V,5,4,1 

#919 IF (P<5)4+(P>15)GOSUB 988 
(925 IF T>12BOX X,V,3,1,2;IF I=@BOX X,V-1,3,1,2 
930 IF T=32RETURN | 

935 H=5-I 

945 IF P>11H=-H- 24I 

' 947 K=2bABSCH}-1. 

} 85a BOX X#2,H+V,1,K, 1 

{95S IF T>6RETURN’ 

856 IF H<@K=2-K , 





ec A, ae te apn Y=15-"5 GOSUB 566 _ . SY command BanEge THe HOEy) Miste 

i ih , dX caumand changes the length. 
Jif COSUB Bel; GOSLE yaa | | ' TR enters the note. Controller #2 
328 IF TRCOLI+TROZIW= =TROE D3 SRETURN =r if plays the tune once, repeatedly, 
‘B3@ V=IXCLI;WHTYCLY a Tees or starts over. 


340 IF V=@IF W=@U=@;COTO 328 

358 IF U=1G0TO 32a | 
360 U=1;P=P+Ws IF (P>19)+CPCBP=P-W 
365 IF V=8GOTO 385. 

378 IF WO8T=Tc2 

388 IF Y>@T=T+T , = 
S385 IF T932T=32 000 2 1958 IF T>SIF P>11GOTO 878 


ena tac ah “1 OS ia RaeBN Se oa : 


367 IF TMete2 os" F868 BOK X+3,K4U,3, 1,1 

394 GOSUB 4@0;GOTO 310. tk i ‘S65 IF T>3RETURN Fe 

408 BOX X+1,¥#7,"18, 12,2 «| -e7a BOX x+3,Kt+U-2,3,1,.15RETURN 
495 BOX X+i,Y-27,10, 14,2. | ‘gaa IF P>1SBOX X,Y+5,8,1,1 

418 FOR U=Y-17TO Y-2STEP 'S 995 IF P>17BOX X,Y+19,8,1,1 
415 BOX. X+2,V, 1, 4, Zi NEXT woe ad 918 IF P<SBOX X,Y-25,8,1,1° 
420 RETURNS ye ae 915 IF P<3BOX X,Y-38,98,1,1 

$@@ BOX @,Y-10, 168, 44,2 ee BY 920. RETURN © oe 2 
5@5 FOR U=Y-28TO YSTEP S°3 | | Bob Wiseman 

Sif BOX @,V,160, 1,13 NEXT ur s oS Seats” yt St.Andrews Dr. 
S15 RETURN eocme | Cincinnati OH 45245 


706 &(16)=49; C17 )=@0C B-P)5 C22 "127 
71@ FOR A=8TO ‘28bT; NEXT A 

715 &€223)=8 

736 RETURN 


———— — 





eee aaiertind net 


95@ : RETURN ;NT=8; CLEAR. 
951 M=S2Zc2;NeM3 A=19@8; B=390; GOSUB A; B=80: GOSUB A 

952 B=71; GOSUB A; B=67;GOSUB A; B=68;GOSUB A; B=53;GOSUB A; B=58;GOSUB A 

$53 B=44;GOSUB A; B=39; ‘GOSUB A; Brant GOSUB A;B=33; ab danas As BE2gs GOSUB A; B=26; GOSUB 


954 8 =24; GOSUB A: B=223 neue As R219; GOSUB A; B=175 GOSUB A; B=16;GOSUB A; B=14;GOSUB 


S68 P=4; T=8; ‘N= ot! 

361 B=M 

965 *=70; Y=-16; RETURN 
1960 N=N-1;@CN)=B; RETURN -. 
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Dieter Heinerman, 


io 
2. 
3 . 3D CORNERS  e 
4 . BY DIETER HETNERMAN- 
9 NT=@. | 
1@ CLEAR 
ll FCc=7 
16 FOR A=1TO 44STEP 1 
17 IF TRC1)=1G0TO 5a 
18 IF TRC2)=1CLEAR | 
19 BC=7bB 
28 BOX A,-A,A,A, 
25 BOX -A,A,A,A, 
38 BOX A,A,A,A,3 
34 BOX -A,-A,A,A,3. 
35 &(22)=255;&(18)=A 
36 NEXT A 
37 B=RND (255) 
-39 FC=B 
GOTO 16 
FOR A=44T0 LSTEP -2 
GOTO 26 


ALZA,S 
AL,A,3 





























Sw Ae EA are Be 
3 . ELECTRONIC BLANKED 
4°, 

S NT=o 

9 CLEAR’ 
A=RND (6) » 
FOR E=1TO 5. 
TRY NT=A° 
&(22)=255. 
IF E=5G0TO 90 


C=RND: (6) : 
IF TRC1)=1G60TO 9 
FOR D=-4@TO 4@STEP c 
MU=BC 
BC=B+2080 
FC=BC-53bC + 
&C1G)=DbC” — 

 &C28)=A+CHD © 
BOX B,D,A, At, 3 
NEXT 0D. 
NEXT B 
NEXT E 
GOTO 18 
90 PRINT " 

190 IF &€23)=8GOTO 9 

A GOTO 198 
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88 


BY DIETER eee, 


FOR B=-7@T0 7OSTEP: AS 
&(17)=Bi&C18)=BbA |. 





“DENOMINATOR 

'. BY. DIETER HETNERMAN 
CLEAR ; 
7 BC=S6— 

8 NT=1 


nn b whe 


A selection of short programs from the programming efforts of 
505 4th Ave.S.W. $1511 





Calgary,Alberta,Canada T2P 0J8 


‘9 PRINT ;:PRINT “ INPUT: DENOMINATOR, 


1@ INPUT " ",N 
20. FOR T=1TO N-1 
38 x= 

48 PRINT. . 

Sa A=T 

6@ PRINT #2,A, #1, 


¥ 


78 IF epee 148. 


8@ A=Ab16 

‘96 PRINT #1, CAN), 
1@@ X=K+1 ° 

11@ IF X>=N-1GOTO. 196 
1286 A=A-CAcN JbN 

138 GOTO 74 

144 A=fAb1B 

158 PRINT. #1,0, 

166 X=X+1 

170 IF X>=N-160TO 198 
19@ GOTO 7a . 

19@ NEXT T- 





Den 20@ IF &(23)=1GOTO 1 
—.\ 218 GOTO 208 


WANT MORE? PRESS 1° 


AY 


",#1,N,#1, 


58 


6a 


98 


186 
110 
126 





NT=18 
CLEAR 
BC=127 
&( 22 )=255 

FOR C=1TO 1@@STEP 1 
FC=BbA | 

A=RND (148)-78 
B=RND (98)-48 

MU=A 

&(C18)=B 

&(28)=C 

BOX A,B,5,5,3 

BOX -A,B,5,5,3 

BOX A,-B,5,5,3 

BOX -A,-B,5,5,3 

IF C>S9GOTO 3a 
NEXT C 

FOR E=1TO 1@STEP 1 
MU=E 
IF E=18CLEAR 

IF TRC1)=1GOTO 18 
NEXT E 
GOTO 39 























a a ar 


ADS:WANTED: Used Bally interface in good working condition - cheap. 


USER GROUPS: 


R. Ruppert 2722 Pyramid Ave., Pittsburgh PA 15227 

FOR SALE: Software by W&W Software Sales,6594 Swartout Rd. Algonac 
MI 48001. Nine tapes with five programs each, plus a new 
one for the Blue Ram (This one is available on tape only, 
$5e, and called ‘Bally Nuclear Power Plant') See ad on p. 
10 for more details... 

FOR SALE: Cartidges because UPS lost my Arcade: BASIC, INTERFACE at 
$35 each; BASEBALL/FOOTBALL/SEA WOLF/CLOWNS/MATH BINGO/ 
280ZZZAP/STAR BATTLE/RED BARON/ BLACKJACK at $15.each. Check 
or money order plus $1. to Randy Rienth, Rt 1 Box 73H, 
Gloucester, VA 23061 

FOR SALE: Software by Rob Rosenhouse, 44 Forestbrook Dr., North 
Plainfield, NJ 07060. Super Software now offers 6 sets of 
programs including a new one based on Missile Command by 
Atari. For catalogue inéluding 2 RND(ART) programs, send 
a large SSAE 
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If you are in the following areas, contact the persons listed: 


Metropolitan Washington,DC-Jerry Heere,2802 Avon Ave Silver Spring 19608 


Westchester Co.areaNY-Dan Simpson Box 229 Somers, NY 10589 
914-248-7058 


FOR SALE: Bally factory games and accessories - special discount to 


ARCADIAN subscribers. For free price list, write to SFP, 
1064 N. Alta Ave. Dinuba, CA 93618 


2 AND 3-PART HARMONY 


MUSIC _ | HOT FLASH! = Latest 
SOFTWARE! | ASTRO VISION PRICE LIST 
Three 60-minute programming [SHOWS AUGUST DATE FOR 
cassettes now available! areca ee 


| 1. Bach’s 15 Two-Part Inventions! -ADD-ON. 
2. Christmas Music; 27 Carols! 
3. Scott Joplin Ragtime Piano! 


§9°° Each 


GEORGE MOSES CO. 
P.O. Box 686° Brighton, MI 48116 
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Robert Fabris, yellow ribboned 
The SOURCE TCD 959 

3626 Morrie Dr. 

San Jose, CA 95127 
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